/ Revista CD Expert 32 / CD Expert nº 32.iso / Unreal T / utdemo338.exe / System / UWindow.u / UWindowWindow_UWindowComboList_ScriptText.TextBuffer

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 7a 66 63 6c 61 73 73 20 |........|zfclass |
|00000010| 55 57 69 6e 64 6f 77 43 | 6f 6d 62 6f 4c 69 73 74 |UWindowC|omboList|
|00000020| 20 65 78 74 65 6e 64 73 | 20 55 57 69 6e 64 6f 77 | extends| UWindow|
|00000030| 4c 69 73 74 43 6f 6e 74 | 72 6f 6c 3b 0d 0a 0d 0a |ListCont|rol;....|
|00000040| 76 61 72 20 55 57 69 6e | 64 6f 77 43 6f 6d 62 6f |var UWin|dowCombo|
|00000050| 43 6f 6e 74 72 6f 6c 09 | 09 4f 77 6e 65 72 3b 0d |Control.|.Owner;.|
|00000060| 0a 76 61 72 20 55 57 69 | 6e 64 6f 77 56 53 63 72 |.var UWi|ndowVScr|
|00000070| 6f 6c 6c 42 61 72 09 09 | 56 65 72 74 53 42 3b 0d |ollBar..|VertSB;.|
|00000080| 0a 76 61 72 20 55 57 69 | 6e 64 6f 77 43 6f 6d 62 |.var UWi|ndowComb|
|00000090| 6f 4c 69 73 74 49 74 65 | 6d 09 53 65 6c 65 63 74 |oListIte|m.Select|
|000000a0| 65 64 3b 0d 0a 76 61 72 | 20 69 6e 74 20 49 74 65 |ed;..var| int Ite|
|000000b0| 6d 48 65 69 67 68 74 3b | 0d 0a 76 61 72 20 69 6e |mHeight;|..var in|
|000000c0| 74 20 56 42 6f 72 64 65 | 72 3b 0d 0a 76 61 72 20 |t VBorde|r;..var |
|000000d0| 69 6e 74 20 48 42 6f 72 | 64 65 72 3b 0d 0a 76 61 |int HBor|der;..va|
|000000e0| 72 20 69 6e 74 20 54 65 | 78 74 42 6f 72 64 65 72 |r int Te|xtBorder|
|000000f0| 3b 0d 0a 76 61 72 20 69 | 6e 74 20 4d 61 78 56 69 |;..var i|nt MaxVi|
|00000100| 73 69 62 6c 65 3b 0d 0a | 0d 0a 66 75 6e 63 74 69 |sible;..|..functi|
|00000110| 6f 6e 20 53 6f 72 74 28 | 29 0d 0a 7b 0d 0a 09 49 |on Sort(|)..{...I|
|00000120| 74 65 6d 73 2e 53 6f 72 | 74 28 29 3b 0d 0a 7d 0d |tems.Sor|t();..}.|
|00000130| 0a 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 57 69 6e 64 |...funct|ion Wind|
|00000140| 6f 77 53 68 6f 77 6e 28 | 29 0d 0a 7b 0d 0a 09 53 |owShown(|)..{...S|
|00000150| 75 70 65 72 2e 57 69 6e | 64 6f 77 53 68 6f 77 6e |uper.Win|dowShown|
|00000160| 28 29 3b 0d 0a 09 46 6f | 63 75 73 57 69 6e 64 6f |();...Fo|cusWindo|
|00000170| 77 28 29 3b 0d 0a 7d 0d | 0a 0d 0a 66 75 6e 63 74 |w();..}.|...funct|
|00000180| 69 6f 6e 20 43 6c 65 61 | 72 28 29 0d 0a 7b 0d 0a |ion Clea|r()..{..|
|00000190| 09 49 74 65 6d 73 2e 43 | 6c 65 61 72 28 29 3b 0d |.Items.C|lear();.|
|000001a0| 0a 7d 0d 0a 0d 0a 66 75 | 6e 63 74 69 6f 6e 20 54 |.}....fu|nction T|
|000001b0| 65 78 74 75 72 65 20 47 | 65 74 4c 6f 6f 6b 41 6e |exture G|etLookAn|
|000001c0| 64 46 65 65 6c 54 65 78 | 74 75 72 65 28 29 0d 0a |dFeelTex|ture()..|
|000001d0| 7b 0d 0a 09 72 65 74 75 | 72 6e 20 4c 6f 6f 6b 41 |{...retu|rn LookA|
|000001e0| 6e 64 46 65 65 6c 2e 41 | 63 74 69 76 65 3b 0d 0a |ndFeel.A|ctive;..|
|000001f0| 7d 0d 0a 0d 0a 66 75 6e | 63 74 69 6f 6e 20 53 65 |}....fun|ction Se|
|00000200| 74 75 70 28 29 0d 0a 7b | 0d 0a 09 56 65 72 74 53 |tup()..{|...VertS|
|00000210| 42 20 3d 20 55 57 69 6e | 64 6f 77 56 53 63 72 6f |B = UWin|dowVScro|
|00000220| 6c 6c 42 61 72 28 43 72 | 65 61 74 65 57 69 6e 64 |llBar(Cr|eateWind|
|00000230| 6f 77 28 63 6c 61 73 73 | 27 55 57 69 6e 64 6f 77 |ow(class|'UWindow|
|00000240| 56 53 63 72 6f 6c 6c 42 | 61 72 27 2c 20 30 2c 20 |VScrollB|ar', 0, |
|00000250| 57 69 6e 57 69 64 74 68 | 20 2d 20 31 36 2c 20 31 |WinWidth| - 16, 1|
|00000260| 36 2c 20 57 69 6e 48 65 | 69 67 68 74 29 29 3b 0d |6, WinHe|ight));.|
|00000270| 0a 7d 0d 0a 0d 0a 66 75 | 6e 63 74 69 6f 6e 20 43 |.}....fu|nction C|
|00000280| 72 65 61 74 65 64 28 29 | 0d 0a 7b 0d 0a 09 4c 69 |reated()|..{...Li|
|00000290| 73 74 43 6c 61 73 73 20 | 3d 20 63 6c 61 73 73 27 |stClass |= class'|
|000002a0| 55 57 69 6e 64 6f 77 43 | 6f 6d 62 6f 4c 69 73 74 |UWindowC|omboList|
|000002b0| 49 74 65 6d 27 3b 0d 0a | 09 62 41 6c 77 61 79 73 |Item';..|.bAlways|
|000002c0| 4f 6e 54 6f 70 20 3d 20 | 54 72 75 65 3b 0d 0a 09 |OnTop = |True;...|
|000002d0| 62 54 72 61 6e 73 69 65 | 6e 74 20 3d 20 54 72 75 |bTransie|nt = Tru|
|000002e0| 65 3b 0d 0a 09 53 75 70 | 65 72 2e 43 72 65 61 74 |e;...Sup|er.Creat|
|000002f0| 65 64 28 29 3b 0d 0a 09 | 49 74 65 6d 48 65 69 67 |ed();...|ItemHeig|
|00000300| 68 74 20 3d 20 31 35 3b | 0d 0a 09 56 42 6f 72 64 |ht = 15;|...VBord|
|00000310| 65 72 20 3d 20 33 3b 0d | 0a 09 48 42 6f 72 64 65 |er = 3;.|..HBorde|
|00000320| 72 20 3d 20 33 3b 0d 0a | 09 54 65 78 74 42 6f 72 |r = 3;..|.TextBor|
|00000330| 64 65 72 20 3d 20 39 3b | 0d 0a 0d 0a 09 53 75 70 |der = 9;|.....Sup|
|00000340| 65 72 2e 43 72 65 61 74 | 65 64 28 29 3b 0d 0a 7d |er.Creat|ed();..}|
|00000350| 0d 0a 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 69 6e 74 |....func|tion int|
|00000360| 20 46 69 6e 64 49 74 65 | 6d 49 6e 64 65 78 28 73 | FindIte|mIndex(s|
|00000370| 74 72 69 6e 67 20 56 61 | 6c 75 65 2c 20 6f 70 74 |tring Va|lue, opt|
|00000380| 69 6f 6e 61 6c 20 62 6f | 6f 6c 20 62 49 67 6e 6f |ional bo|ol bIgno|
|00000390| 72 65 43 61 73 65 29 0d | 0a 7b 0d 0a 09 6c 6f 63 |reCase).|.{...loc|
|000003a0| 61 6c 20 55 57 69 6e 64 | 6f 77 43 6f 6d 62 6f 4c |al UWind|owComboL|
|000003b0| 69 73 74 49 74 65 6d 20 | 49 3b 0d 0a 09 6c 6f 63 |istItem |I;...loc|
|000003c0| 61 6c 20 69 6e 74 20 43 | 6f 75 6e 74 3b 0d 0a 0d |al int C|ount;...|
|000003d0| 0a 09 49 20 3d 20 55 57 | 69 6e 64 6f 77 43 6f 6d |..I = UW|indowCom|
|000003e0| 62 6f 4c 69 73 74 49 74 | 65 6d 28 49 74 65 6d 73 |boListIt|em(Items|
|000003f0| 2e 4e 65 78 74 29 3b 0d | 0a 09 43 6f 75 6e 74 20 |.Next);.|..Count |
|00000400| 3d 20 30 3b 0d 0a 09 09 | 0d 0a 09 77 68 69 6c 65 |= 0;....|...while|
|00000410| 28 49 20 21 3d 20 4e 6f | 6e 65 29 0d 0a 09 7b 0d |(I != No|ne)...{.|
|00000420| 0a 09 09 69 66 28 62 49 | 67 6e 6f 72 65 43 61 73 |...if(bI|gnoreCas|
|00000430| 65 20 26 26 20 49 2e 56 | 61 6c 75 65 20 7e 3d 20 |e && I.V|alue ~= |
|00000440| 56 61 6c 75 65 29 20 72 | 65 74 75 72 6e 20 43 6f |Value) r|eturn Co|
|00000450| 75 6e 74 3b 0d 0a 09 09 | 69 66 28 49 2e 56 61 6c |unt;....|if(I.Val|
|00000460| 75 65 20 3d 3d 20 56 61 | 6c 75 65 29 20 72 65 74 |ue == Va|lue) ret|
|00000470| 75 72 6e 20 43 6f 75 6e | 74 3b 0d 0a 0d 0a 09 09 |urn Coun|t;......|
|00000480| 43 6f 75 6e 74 2b 2b 3b | 0d 0a 09 09 49 20 3d 20 |Count++;|....I = |
|00000490| 55 57 69 6e 64 6f 77 43 | 6f 6d 62 6f 4c 69 73 74 |UWindowC|omboList|
|000004a0| 49 74 65 6d 28 49 2e 4e | 65 78 74 29 3b 0d 0a 09 |Item(I.N|ext);...|
|000004b0| 7d 0d 0a 0d 0a 09 72 65 | 74 75 72 6e 20 2d 31 3b |}.....re|turn -1;|
|000004c0| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|000004d0| 69 6e 74 20 46 69 6e 64 | 49 74 65 6d 49 6e 64 65 |int Find|ItemInde|
|000004e0| 78 32 28 73 74 72 69 6e | 67 20 56 61 6c 75 65 32 |x2(strin|g Value2|
|000004f0| 2c 20 6f 70 74 69 6f 6e | 61 6c 20 62 6f 6f 6c 20 |, option|al bool |
|00000500| 62 49 67 6e 6f 72 65 43 | 61 73 65 29 0d 0a 7b 0d |bIgnoreC|ase)..{.|
|00000510| 0a 09 6c 6f 63 61 6c 20 | 55 57 69 6e 64 6f 77 43 |..local |UWindowC|
|00000520| 6f 6d 62 6f 4c 69 73 74 | 49 74 65 6d 20 49 3b 0d |omboList|Item I;.|
|00000530| 0a 09 6c 6f 63 61 6c 20 | 69 6e 74 20 43 6f 75 6e |..local |int Coun|
|00000540| 74 3b 0d 0a 0d 0a 09 49 | 20 3d 20 55 57 69 6e 64 |t;.....I| = UWind|
|00000550| 6f 77 43 6f 6d 62 6f 4c | 69 73 74 49 74 65 6d 28 |owComboL|istItem(|
|00000560| 49 74 65 6d 73 2e 4e 65 | 78 74 29 3b 0d 0a 09 43 |Items.Ne|xt);...C|
|00000570| 6f 75 6e 74 20 3d 20 30 | 3b 0d 0a 09 09 0d 0a 09 |ount = 0|;.......|
|00000580| 77 68 69 6c 65 28 49 20 | 21 3d 20 4e 6f 6e 65 29 |while(I |!= None)|
|00000590| 0d 0a 09 7b 0d 0a 09 09 | 69 66 28 62 49 67 6e 6f |...{....|if(bIgno|
|000005a0| 72 65 43 61 73 65 20 26 | 26 20 49 2e 56 61 6c 75 |reCase &|& I.Valu|
|000005b0| 65 32 20 7e 3d 20 56 61 | 6c 75 65 32 29 20 72 65 |e2 ~= Va|lue2) re|
|000005c0| 74 75 72 6e 20 43 6f 75 | 6e 74 3b 0d 0a 09 09 69 |turn Cou|nt;....i|
|000005d0| 66 28 49 2e 56 61 6c 75 | 65 32 20 3d 3d 20 56 61 |f(I.Valu|e2 == Va|
|000005e0| 6c 75 65 32 29 20 72 65 | 74 75 72 6e 20 43 6f 75 |lue2) re|turn Cou|
|000005f0| 6e 74 3b 0d 0a 0d 0a 09 | 09 43 6f 75 6e 74 2b 2b |nt;.....|.Count++|
|00000600| 3b 0d 0a 09 09 49 20 3d | 20 55 57 69 6e 64 6f 77 |;....I =| UWindow|
|00000610| 43 6f 6d 62 6f 4c 69 73 | 74 49 74 65 6d 28 49 2e |ComboLis|tItem(I.|
|00000620| 4e 65 78 74 29 3b 0d 0a | 09 7d 0d 0a 0d 0a 09 72 |Next);..|.}.....r|
|00000630| 65 74 75 72 6e 20 2d 31 | 3b 0d 0a 7d 0d 0a 0d 0a |eturn -1|;..}....|
|00000640| 66 75 6e 63 74 69 6f 6e | 20 73 74 72 69 6e 67 20 |function| string |
|00000650| 47 65 74 49 74 65 6d 56 | 61 6c 75 65 28 69 6e 74 |GetItemV|alue(int|
|00000660| 20 49 6e 64 65 78 29 0d | 0a 7b 0d 0a 09 6c 6f 63 | Index).|.{...loc|
|00000670| 61 6c 20 55 57 69 6e 64 | 6f 77 43 6f 6d 62 6f 4c |al UWind|owComboL|
|00000680| 69 73 74 49 74 65 6d 20 | 49 3b 0d 0a 09 6c 6f 63 |istItem |I;...loc|
|00000690| 61 6c 20 69 6e 74 20 43 | 6f 75 6e 74 3b 0d 0a 0d |al int C|ount;...|
|000006a0| 0a 09 49 20 3d 20 55 57 | 69 6e 64 6f 77 43 6f 6d |..I = UW|indowCom|
|000006b0| 62 6f 4c 69 73 74 49 74 | 65 6d 28 49 74 65 6d 73 |boListIt|em(Items|
|000006c0| 2e 4e 65 78 74 29 3b 0d | 0a 09 43 6f 75 6e 74 20 |.Next);.|..Count |
|000006d0| 3d 20 30 3b 0d 0a 09 09 | 0d 0a 09 77 68 69 6c 65 |= 0;....|...while|
|000006e0| 28 49 20 21 3d 20 4e 6f | 6e 65 29 0d 0a 09 7b 0d |(I != No|ne)...{.|
|000006f0| 0a 09 09 69 66 28 43 6f | 75 6e 74 20 3d 3d 20 49 |...if(Co|unt == I|
|00000700| 6e 64 65 78 29 20 72 65 | 74 75 72 6e 20 49 2e 56 |ndex) re|turn I.V|
|00000710| 61 6c 75 65 3b 0d 0a 0d | 0a 09 09 43 6f 75 6e 74 |alue;...|...Count|
|00000720| 2b 2b 3b 0d 0a 09 09 49 | 20 3d 20 55 57 69 6e 64 |++;....I| = UWind|
|00000730| 6f 77 43 6f 6d 62 6f 4c | 69 73 74 49 74 65 6d 28 |owComboL|istItem(|
|00000740| 49 2e 4e 65 78 74 29 3b | 0d 0a 09 7d 0d 0a 0d 0a |I.Next);|...}....|
|00000750| 09 72 65 74 75 72 6e 20 | 22 22 3b 0d 0a 7d 0d 0a |.return |"";..}..|
|00000760| 0d 0a 66 75 6e 63 74 69 | 6f 6e 20 52 65 6d 6f 76 |..functi|on Remov|
|00000770| 65 49 74 65 6d 28 69 6e | 74 20 49 6e 64 65 78 29 |eItem(in|t Index)|
|00000780| 0d 0a 7b 0d 0a 09 6c 6f | 63 61 6c 20 55 57 69 6e |..{...lo|cal UWin|
|00000790| 64 6f 77 43 6f 6d 62 6f | 4c 69 73 74 49 74 65 6d |dowCombo|ListItem|
|000007a0| 20 49 3b 0d 0a 09 6c 6f | 63 61 6c 20 69 6e 74 20 | I;...lo|cal int |
|000007b0| 43 6f 75 6e 74 3b 0d 0a | 0d 0a 09 69 66 28 49 6e |Count;..|...if(In|
|000007c0| 64 65 78 20 3d 3d 20 2d | 31 29 0d 0a 09 09 72 65 |dex == -|1)....re|
|000007d0| 74 75 72 6e 3b 0d 0a 0d | 0a 09 49 20 3d 20 55 57 |turn;...|..I = UW|
|000007e0| 69 6e 64 6f 77 43 6f 6d | 62 6f 4c 69 73 74 49 74 |indowCom|boListIt|
|000007f0| 65 6d 28 49 74 65 6d 73 | 2e 4e 65 78 74 29 3b 0d |em(Items|.Next);.|
|00000800| 0a 09 43 6f 75 6e 74 20 | 3d 20 30 3b 0d 0a 09 09 |..Count |= 0;....|
|00000810| 0d 0a 09 77 68 69 6c 65 | 28 49 20 21 3d 20 4e 6f |...while|(I != No|
|00000820| 6e 65 29 0d 0a 09 7b 0d | 0a 09 09 69 66 28 43 6f |ne)...{.|...if(Co|
|00000830| 75 6e 74 20 3d 3d 20 49 | 6e 64 65 78 29 0d 0a 09 |unt == I|ndex)...|
|00000840| 09 7b 0d 0a 09 09 09 49 | 2e 52 65 6d 6f 76 65 28 |.{.....I|.Remove(|
|00000850| 29 3b 0d 0a 09 09 09 72 | 65 74 75 72 6e 3b 0d 0a |);.....r|eturn;..|
|00000860| 09 09 7d 0d 0a 0d 0a 09 | 09 43 6f 75 6e 74 2b 2b |..}.....|.Count++|
|00000870| 3b 0d 0a 09 09 49 20 3d | 20 55 57 69 6e 64 6f 77 |;....I =| UWindow|
|00000880| 43 6f 6d 62 6f 4c 69 73 | 74 49 74 65 6d 28 49 2e |ComboLis|tItem(I.|
|00000890| 4e 65 78 74 29 3b 0d 0a | 09 7d 0d 0a 7d 0d 0a 0d |Next);..|.}..}...|
|000008a0| 0a 66 75 6e 63 74 69 6f | 6e 20 73 74 72 69 6e 67 |.functio|n string|
|000008b0| 20 47 65 74 49 74 65 6d | 56 61 6c 75 65 32 28 69 | GetItem|Value2(i|
|000008c0| 6e 74 20 49 6e 64 65 78 | 29 0d 0a 7b 0d 0a 09 6c |nt Index|)..{...l|
|000008d0| 6f 63 61 6c 20 55 57 69 | 6e 64 6f 77 43 6f 6d 62 |ocal UWi|ndowComb|
|000008e0| 6f 4c 69 73 74 49 74 65 | 6d 20 49 3b 0d 0a 09 6c |oListIte|m I;...l|
|000008f0| 6f 63 61 6c 20 69 6e 74 | 20 43 6f 75 6e 74 3b 0d |ocal int| Count;.|
|00000900| 0a 0d 0a 09 49 20 3d 20 | 55 57 69 6e 64 6f 77 43 |....I = |UWindowC|
|00000910| 6f 6d 62 6f 4c 69 73 74 | 49 74 65 6d 28 49 74 65 |omboList|Item(Ite|
|00000920| 6d 73 2e 4e 65 78 74 29 | 3b 0d 0a 09 43 6f 75 6e |ms.Next)|;...Coun|
|00000930| 74 20 3d 20 30 3b 0d 0a | 09 09 0d 0a 09 77 68 69 |t = 0;..|.....whi|
|00000940| 6c 65 28 49 20 21 3d 20 | 4e 6f 6e 65 29 0d 0a 09 |le(I != |None)...|
|00000950| 7b 0d 0a 09 09 69 66 28 | 43 6f 75 6e 74 20 3d 3d |{....if(|Count ==|
|00000960| 20 49 6e 64 65 78 29 20 | 72 65 74 75 72 6e 20 49 | Index) |return I|
|00000970| 2e 56 61 6c 75 65 32 3b | 0d 0a 0d 0a 09 09 43 6f |.Value2;|......Co|
|00000980| 75 6e 74 2b 2b 3b 0d 0a | 09 09 49 20 3d 20 55 57 |unt++;..|..I = UW|
|00000990| 69 6e 64 6f 77 43 6f 6d | 62 6f 4c 69 73 74 49 74 |indowCom|boListIt|
|000009a0| 65 6d 28 49 2e 4e 65 78 | 74 29 3b 0d 0a 09 7d 0d |em(I.Nex|t);...}.|
|000009b0| 0a 0d 0a 09 72 65 74 75 | 72 6e 20 22 22 3b 0d 0a |....retu|rn "";..|
|000009c0| 7d 0d 0a 0d 0a 66 75 6e | 63 74 69 6f 6e 20 41 64 |}....fun|ction Ad|
|000009d0| 64 49 74 65 6d 28 73 74 | 72 69 6e 67 20 56 61 6c |dItem(st|ring Val|
|000009e0| 75 65 2c 20 6f 70 74 69 | 6f 6e 61 6c 20 73 74 72 |ue, opti|onal str|
|000009f0| 69 6e 67 20 56 61 6c 75 | 65 32 2c 20 6f 70 74 69 |ing Valu|e2, opti|
|00000a00| 6f 6e 61 6c 20 69 6e 74 | 20 53 6f 72 74 57 65 69 |onal int| SortWei|
|00000a10| 67 68 74 29 0d 0a 7b 0d | 0a 09 6c 6f 63 61 6c 20 |ght)..{.|..local |
|00000a20| 55 57 69 6e 64 6f 77 43 | 6f 6d 62 6f 4c 69 73 74 |UWindowC|omboList|
|00000a30| 49 74 65 6d 20 49 3b 0d | 0a 09 49 20 3d 20 55 57 |Item I;.|..I = UW|
|00000a40| 69 6e 64 6f 77 43 6f 6d | 62 6f 4c 69 73 74 49 74 |indowCom|boListIt|
|00000a50| 65 6d 28 49 74 65 6d 73 | 2e 41 70 70 65 6e 64 28 |em(Items|.Append(|
|00000a60| 63 6c 61 73 73 27 55 57 | 69 6e 64 6f 77 43 6f 6d |class'UW|indowCom|
|00000a70| 62 6f 4c 69 73 74 49 74 | 65 6d 27 29 29 3b 0d 0a |boListIt|em'));..|
|00000a80| 09 49 2e 56 61 6c 75 65 | 20 3d 20 56 61 6c 75 65 |.I.Value| = Value|
|00000a90| 3b 0d 0a 09 49 2e 56 61 | 6c 75 65 32 20 3d 20 56 |;...I.Va|lue2 = V|
|00000aa0| 61 6c 75 65 32 3b 0d 0a | 09 49 2e 53 6f 72 74 57 |alue2;..|.I.SortW|
|00000ab0| 65 69 67 68 74 20 3d 20 | 53 6f 72 74 57 65 69 67 |eight = |SortWeig|
|00000ac0| 68 74 3b 0d 0a 7d 0d 0a | 0d 0a 66 75 6e 63 74 69 |ht;..}..|..functi|
|00000ad0| 6f 6e 20 49 6e 73 65 72 | 74 49 74 65 6d 28 73 74 |on Inser|tItem(st|
|00000ae0| 72 69 6e 67 20 56 61 6c | 75 65 2c 20 6f 70 74 69 |ring Val|ue, opti|
|00000af0| 6f 6e 61 6c 20 73 74 72 | 69 6e 67 20 56 61 6c 75 |onal str|ing Valu|
|00000b00| 65 32 2c 20 6f 70 74 69 | 6f 6e 61 6c 20 69 6e 74 |e2, opti|onal int|
|00000b10| 20 53 6f 72 74 57 65 69 | 67 68 74 29 0d 0a 7b 0d | SortWei|ght)..{.|
|00000b20| 0a 09 6c 6f 63 61 6c 20 | 55 57 69 6e 64 6f 77 43 |..local |UWindowC|
|00000b30| 6f 6d 62 6f 4c 69 73 74 | 49 74 65 6d 20 49 3b 0d |omboList|Item I;.|
|00000b40| 0a 09 49 20 3d 20 55 57 | 69 6e 64 6f 77 43 6f 6d |..I = UW|indowCom|
|00000b50| 62 6f 4c 69 73 74 49 74 | 65 6d 28 49 74 65 6d 73 |boListIt|em(Items|
|00000b60| 2e 49 6e 73 65 72 74 28 | 63 6c 61 73 73 27 55 57 |.Insert(|class'UW|
|00000b70| 69 6e 64 6f 77 43 6f 6d | 62 6f 4c 69 73 74 49 74 |indowCom|boListIt|
|00000b80| 65 6d 27 29 29 3b 0d 0a | 09 49 2e 56 61 6c 75 65 |em'));..|.I.Value|
|00000b90| 20 3d 20 56 61 6c 75 65 | 3b 0d 0a 09 49 2e 56 61 | = Value|;...I.Va|
|00000ba0| 6c 75 65 32 20 3d 20 56 | 61 6c 75 65 32 3b 0d 0a |lue2 = V|alue2;..|
|00000bb0| 09 49 2e 53 6f 72 74 57 | 65 69 67 68 74 20 3d 20 |.I.SortW|eight = |
|00000bc0| 53 6f 72 74 57 65 69 67 | 68 74 3b 0d 0a 7d 0d 0a |SortWeig|ht;..}..|
|00000bd0| 0d 0a 66 75 6e 63 74 69 | 6f 6e 20 53 65 74 53 65 |..functi|on SetSe|
|00000be0| 6c 65 63 74 65 64 28 66 | 6c 6f 61 74 20 58 2c 20 |lected(f|loat X, |
|00000bf0| 66 6c 6f 61 74 20 59 29 | 0d 0a 7b 0d 0a 09 6c 6f |float Y)|..{...lo|
|00000c00| 63 61 6c 20 55 57 69 6e | 64 6f 77 43 6f 6d 62 6f |cal UWin|dowCombo|
|00000c10| 4c 69 73 74 49 74 65 6d | 20 4e 65 77 53 65 6c 65 |ListItem| NewSele|
|00000c20| 63 74 65 64 2c 20 49 74 | 65 6d 3b 0d 0a 09 6c 6f |cted, It|em;...lo|
|00000c30| 63 61 6c 20 69 6e 74 20 | 69 2c 20 43 6f 75 6e 74 |cal int |i, Count|
|00000c40| 3b 0d 0a 0d 0a 09 43 6f | 75 6e 74 20 3d 20 30 3b |;.....Co|unt = 0;|
|00000c50| 0d 0a 09 66 6f 72 28 20 | 49 74 65 6d 20 3d 20 55 |...for( |Item = U|
|00000c60| 57 69 6e 64 6f 77 43 6f | 6d 62 6f 4c 69 73 74 49 |WindowCo|mboListI|
|00000c70| 74 65 6d 28 49 74 65 6d | 73 2e 4e 65 78 74 29 3b |tem(Item|s.Next);|
|00000c80| 49 74 65 6d 20 21 3d 20 | 4e 6f 6e 65 3b 20 49 74 |Item != |None; It|
|00000c90| 65 6d 20 3d 20 55 57 69 | 6e 64 6f 77 43 6f 6d 62 |em = UWi|ndowComb|
|00000ca0| 6f 4c 69 73 74 49 74 65 | 6d 28 49 74 65 6d 2e 4e |oListIte|m(Item.N|
|00000cb0| 65 78 74 29 20 29 0d 0a | 09 09 43 6f 75 6e 74 2b |ext) )..|..Count+|
|00000cc0| 2b 3b 0d 0a 0d 0a 09 69 | 20 3d 20 28 59 20 2d 20 |+;.....i| = (Y - |
|00000cd0| 56 42 6f 72 64 65 72 29 | 20 2f 20 49 74 65 6d 48 |VBorder)| / ItemH|
|00000ce0| 65 69 67 68 74 20 2b 20 | 56 65 72 74 53 42 2e 50 |eight + |VertSB.P|
|00000cf0| 6f 73 3b 0d 0a 0d 0a 09 | 69 66 28 69 20 3c 20 30 |os;.....|if(i < 0|
|00000d00| 29 0d 0a 09 09 69 20 3d | 20 30 3b 0d 0a 0d 0a 09 |)....i =| 0;.....|
|00000d10| 69 66 28 69 20 3e 3d 20 | 56 65 72 74 53 42 2e 50 |if(i >= |VertSB.P|
|00000d20| 6f 73 20 2b 20 4d 69 6e | 28 43 6f 75 6e 74 2c 20 |os + Min|(Count, |
|00000d30| 4d 61 78 56 69 73 69 62 | 6c 65 29 29 0d 0a 09 09 |MaxVisib|le))....|
|00000d40| 69 20 3d 20 56 65 72 74 | 53 42 2e 50 6f 73 20 2b |i = Vert|SB.Pos +|
|00000d50| 20 4d 69 6e 28 43 6f 75 | 6e 74 2c 20 4d 61 78 56 | Min(Cou|nt, MaxV|
|00000d60| 69 73 69 62 6c 65 29 20 | 2d 20 31 3b 0d 0a 0d 0a |isible) |- 1;....|
|00000d70| 09 4e 65 77 53 65 6c 65 | 63 74 65 64 20 3d 20 55 |.NewSele|cted = U|
|00000d80| 57 69 6e 64 6f 77 43 6f | 6d 62 6f 4c 69 73 74 49 |WindowCo|mboListI|
|00000d90| 74 65 6d 28 49 74 65 6d | 73 2e 46 69 6e 64 45 6e |tem(Item|s.FindEn|
|00000da0| 74 72 79 28 69 29 29 3b | 0d 0a 0d 0a 09 69 66 28 |try(i));|.....if(|
|00000db0| 4e 65 77 53 65 6c 65 63 | 74 65 64 20 21 3d 20 53 |NewSelec|ted != S|
|00000dc0| 65 6c 65 63 74 65 64 29 | 0d 0a 09 7b 0d 0a 09 09 |elected)|...{....|
|00000dd0| 69 66 28 4e 65 77 53 65 | 6c 65 63 74 65 64 20 3d |if(NewSe|lected =|
|00000de0| 3d 20 4e 6f 6e 65 29 20 | 0d 0a 09 09 09 53 65 6c |= None) |.....Sel|
|00000df0| 65 63 74 65 64 20 3d 20 | 4e 6f 6e 65 3b 0d 0a 09 |ected = |None;...|
|00000e00| 09 65 6c 73 65 0d 0a 09 | 09 09 53 65 6c 65 63 74 |.else...|..Select|
|00000e10| 65 64 20 3d 20 4e 65 77 | 53 65 6c 65 63 74 65 64 |ed = New|Selected|
|00000e20| 3b 0d 0a 09 7d 09 0d 0a | 7d 0d 0a 0d 0a 66 75 6e |;...}...|}....fun|
|00000e30| 63 74 69 6f 6e 20 4d 6f | 75 73 65 4d 6f 76 65 28 |ction Mo|useMove(|
|00000e40| 66 6c 6f 61 74 20 58 2c | 20 66 6c 6f 61 74 20 59 |float X,| float Y|
|00000e50| 29 0d 0a 7b 0d 0a 09 53 | 75 70 65 72 2e 4d 6f 75 |)..{...S|uper.Mou|
|00000e60| 73 65 4d 6f 76 65 28 58 | 2c 20 59 29 3b 0d 0a 09 |seMove(X|, Y);...|
|00000e70| 69 66 28 59 20 3e 20 57 | 69 6e 48 65 69 67 68 74 |if(Y > W|inHeight|
|00000e80| 29 20 56 65 72 74 53 42 | 2e 53 63 72 6f 6c 6c 28 |) VertSB|.Scroll(|
|00000e90| 31 29 3b 0d 0a 09 69 66 | 28 59 20 3c 20 30 29 20 |1);...if|(Y < 0) |
|00000ea0| 56 65 72 74 53 42 2e 53 | 63 72 6f 6c 6c 28 2d 31 |VertSB.S|croll(-1|
|00000eb0| 29 3b 0d 0a 0d 0a 09 53 | 65 74 53 65 6c 65 63 74 |);.....S|etSelect|
|00000ec0| 65 64 28 58 2c 20 59 29 | 3b 0d 0a 0d 0a 09 46 6f |ed(X, Y)|;.....Fo|
|00000ed0| 63 75 73 57 69 6e 64 6f | 77 28 29 3b 0d 0a 7d 0d |cusWindo|w();..}.|
|00000ee0| 0a 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 4c 4d 6f 75 |...funct|ion LMou|
|00000ef0| 73 65 55 70 28 66 6c 6f | 61 74 20 58 2c 20 66 6c |seUp(flo|at X, fl|
|00000f00| 6f 61 74 20 59 29 0d 0a | 7b 0d 0a 09 49 66 28 59 |oat Y)..|{...If(Y|
|00000f10| 20 3e 3d 20 30 20 26 26 | 20 59 20 3c 3d 20 57 69 | >= 0 &&| Y <= Wi|
|00000f20| 6e 48 65 69 67 68 74 20 | 26 26 20 53 65 6c 65 63 |nHeight |&& Selec|
|00000f30| 74 65 64 20 21 3d 20 4e | 6f 6e 65 29 0d 0a 09 7b |ted != N|one)...{|
|00000f40| 0d 0a 09 09 45 78 65 63 | 75 74 65 49 74 65 6d 28 |....Exec|uteItem(|
|00000f50| 53 65 6c 65 63 74 65 64 | 29 3b 0d 0a 09 7d 0d 0a |Selected|);...}..|
|00000f60| 09 53 75 70 65 72 2e 4c | 4d 6f 75 73 65 55 70 28 |.Super.L|MouseUp(|
|00000f70| 58 2c 20 59 29 3b 0d 0a | 7d 0d 0a 0d 0a 66 75 6e |X, Y);..|}....fun|
|00000f80| 63 74 69 6f 6e 20 4c 4d | 6f 75 73 65 44 6f 77 6e |ction LM|ouseDown|
|00000f90| 28 66 6c 6f 61 74 20 58 | 2c 20 66 6c 6f 61 74 20 |(float X|, float |
|00000fa0| 59 29 0d 0a 7b 0d 0a 09 | 52 6f 6f 74 2e 43 61 70 |Y)..{...|Root.Cap|
|00000fb0| 74 75 72 65 4d 6f 75 73 | 65 28 29 3b 0d 0a 7d 0d |tureMous|e();..}.|
|00000fc0| 0a 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 42 65 66 6f |...funct|ion Befo|
|00000fd0| 72 65 50 61 69 6e 74 28 | 43 61 6e 76 61 73 20 43 |rePaint(|Canvas C|
|00000fe0| 2c 20 66 6c 6f 61 74 20 | 58 2c 20 66 6c 6f 61 74 |, float |X, float|
|00000ff0| 20 59 29 0d 0a 7b 0d 0a | 09 6c 6f 63 61 6c 20 66 | Y)..{..|.local f|
|00001000| 6c 6f 61 74 20 57 2c 20 | 48 2c 20 4d 61 78 57 69 |loat W, |H, MaxWi|
|00001010| 64 74 68 3b 0d 0a 09 6c | 6f 63 61 6c 20 69 6e 74 |dth;...l|ocal int|
|00001020| 20 43 6f 75 6e 74 3b 0d | 0a 09 6c 6f 63 61 6c 20 | Count;.|..local |
|00001030| 55 57 69 6e 64 6f 77 43 | 6f 6d 62 6f 4c 69 73 74 |UWindowC|omboList|
|00001040| 49 74 65 6d 20 49 3b 0d | 0a 09 6c 6f 63 61 6c 20 |Item I;.|..local |
|00001050| 66 6c 6f 61 74 20 4c 69 | 73 74 58 2c 20 4c 69 73 |float Li|stX, Lis|
|00001060| 74 59 3b 0d 0a 09 6c 6f | 63 61 6c 20 66 6c 6f 61 |tY;...lo|cal floa|
|00001070| 74 20 45 78 74 72 61 57 | 69 64 74 68 3b 0d 0a 09 |t ExtraW|idth;...|
|00001080| 09 0d 0a 09 43 2e 46 6f | 6e 74 20 3d 20 52 6f 6f |....C.Fo|nt = Roo|
|00001090| 74 2e 46 6f 6e 74 73 5b | 46 5f 4e 6f 72 6d 61 6c |t.Fonts[|F_Normal|
|000010a0| 5d 3b 0d 0a 09 43 2e 53 | 65 74 50 6f 73 28 30 2c |];...C.S|etPos(0,|
|000010b0| 20 30 29 3b 0d 0a 0d 0a | 09 4d 61 78 57 69 64 74 | 0);....|.MaxWidt|
|000010c0| 68 20 3d 20 4f 77 6e 65 | 72 2e 45 64 69 74 42 6f |h = Owne|r.EditBo|
|000010d0| 78 57 69 64 74 68 3b 0d | 0a 09 45 78 74 72 61 57 |xWidth;.|..ExtraW|
|000010e0| 69 64 74 68 20 3d 20 28 | 28 48 42 6f 72 64 65 72 |idth = (|(HBorder|
|000010f0| 20 2b 20 54 65 78 74 42 | 6f 72 64 65 72 29 20 2a | + TextB|order) *|
|00001100| 20 32 29 3b 0d 0a 0d 0a | 09 43 6f 75 6e 74 20 3d | 2);....|.Count =|
|00001110| 20 49 74 65 6d 73 2e 43 | 6f 75 6e 74 28 29 3b 0d | Items.C|ount();.|
|00001120| 0a 09 69 66 28 43 6f 75 | 6e 74 20 3e 20 4d 61 78 |..if(Cou|nt > Max|
|00001130| 56 69 73 69 62 6c 65 29 | 0d 0a 09 7b 0d 0a 09 09 |Visible)|...{....|
|00001140| 45 78 74 72 61 57 69 64 | 74 68 20 2b 3d 20 4c 6f |ExtraWid|th += Lo|
|00001150| 6f 6b 41 6e 64 46 65 65 | 6c 2e 53 69 7a 65 5f 53 |okAndFee|l.Size_S|
|00001160| 63 72 6f 6c 6c 62 61 72 | 57 69 64 74 68 3b 0d 0a |crollbar|Width;..|
|00001170| 09 09 57 69 6e 48 65 69 | 67 68 74 20 3d 20 28 49 |..WinHei|ght = (I|
|00001180| 74 65 6d 48 65 69 67 68 | 74 20 2a 20 4d 61 78 56 |temHeigh|t * MaxV|
|00001190| 69 73 69 62 6c 65 29 20 | 2b 20 28 56 42 6f 72 64 |isible) |+ (VBord|
|000011a0| 65 72 20 2a 20 32 29 3b | 0d 0a 09 7d 0d 0a 09 65 |er * 2);|...}...e|
|000011b0| 6c 73 65 0d 0a 09 7b 0d | 0a 09 09 56 65 72 74 53 |lse...{.|...VertS|
|000011c0| 42 2e 50 6f 73 20 3d 20 | 30 3b 0d 0a 09 09 57 69 |B.Pos = |0;....Wi|
|000011d0| 6e 48 65 69 67 68 74 20 | 3d 20 28 49 74 65 6d 48 |nHeight |= (ItemH|
|000011e0| 65 69 67 68 74 20 2a 20 | 43 6f 75 6e 74 29 20 2b |eight * |Count) +|
|000011f0| 20 28 56 42 6f 72 64 65 | 72 20 2a 20 32 29 3b 0d | (VBorde|r * 2);.|
|00001200| 0a 09 7d 0d 0a 0d 0a 09 | 66 6f 72 28 20 49 20 3d |..}.....|for( I =|
|00001210| 20 55 57 69 6e 64 6f 77 | 43 6f 6d 62 6f 4c 69 73 | UWindow|ComboLis|
|00001220| 74 49 74 65 6d 28 49 74 | 65 6d 73 2e 4e 65 78 74 |tItem(It|ems.Next|
|00001230| 29 3b 49 20 21 3d 20 4e | 6f 6e 65 3b 20 49 20 3d |);I != N|one; I =|
|00001240| 20 55 57 69 6e 64 6f 77 | 43 6f 6d 62 6f 4c 69 73 | UWindow|ComboLis|
|00001250| 74 49 74 65 6d 28 49 2e | 4e 65 78 74 29 20 29 0d |tItem(I.|Next) ).|
|00001260| 0a 09 7b 0d 0a 09 09 54 | 65 78 74 53 69 7a 65 28 |..{....T|extSize(|
|00001270| 43 2c 20 52 65 6d 6f 76 | 65 41 6d 70 65 72 73 61 |C, Remov|eAmpersa|
|00001280| 6e 64 28 49 2e 56 61 6c | 75 65 29 2c 20 57 2c 20 |nd(I.Val|ue), W, |
|00001290| 48 29 3b 0d 0a 09 09 69 | 66 28 57 20 2b 20 45 78 |H);....i|f(W + Ex|
|000012a0| 74 72 61 57 69 64 74 68 | 20 3e 20 4d 61 78 57 69 |traWidth| > MaxWi|
|000012b0| 64 74 68 29 0d 0a 09 09 | 09 4d 61 78 57 69 64 74 |dth)....|.MaxWidt|
|000012c0| 68 20 3d 20 57 20 2b 20 | 45 78 74 72 61 57 69 64 |h = W + |ExtraWid|
|000012d0| 74 68 3b 0d 0a 09 7d 0d | 0a 0d 0a 09 57 69 6e 57 |th;...}.|....WinW|
|000012e0| 69 64 74 68 20 3d 20 4d | 61 78 57 69 64 74 68 3b |idth = M|axWidth;|
|000012f0| 0d 0a 0d 0a 09 4c 69 73 | 74 58 20 3d 20 4f 77 6e |.....Lis|tX = Own|
|00001300| 65 72 2e 45 64 69 74 41 | 72 65 61 44 72 61 77 58 |er.EditA|reaDrawX|
|00001310| 20 2b 20 4f 77 6e 65 72 | 2e 45 64 69 74 42 6f 78 | + Owner|.EditBox|
|00001320| 57 69 64 74 68 20 2d 20 | 57 69 6e 57 69 64 74 68 |Width - |WinWidth|
|00001330| 3b 0d 0a 09 4c 69 73 74 | 59 20 3d 20 4f 77 6e 65 |;...List|Y = Owne|
|00001340| 72 2e 42 75 74 74 6f 6e | 2e 57 69 6e 54 6f 70 20 |r.Button|.WinTop |
|00001350| 2b 20 4f 77 6e 65 72 2e | 42 75 74 74 6f 6e 2e 57 |+ Owner.|Button.W|
|00001360| 69 6e 48 65 69 67 68 74 | 3b 0d 0a 0d 0a 09 69 66 |inHeight|;.....if|
|00001370| 28 43 6f 75 6e 74 20 3e | 20 4d 61 78 56 69 73 69 |(Count >| MaxVisi|
|00001380| 62 6c 65 29 0d 0a 09 7b | 0d 0a 09 09 56 65 72 74 |ble)...{|....Vert|
|00001390| 53 42 2e 53 68 6f 77 57 | 69 6e 64 6f 77 28 29 3b |SB.ShowW|indow();|
|000013a0| 0d 0a 09 09 56 65 72 74 | 53 42 2e 53 65 74 52 61 |....Vert|SB.SetRa|
|000013b0| 6e 67 65 28 30 2c 20 43 | 6f 75 6e 74 2c 20 4d 61 |nge(0, C|ount, Ma|
|000013c0| 78 56 69 73 69 62 6c 65 | 29 3b 0d 0a 09 09 56 65 |xVisible|);....Ve|
|000013d0| 72 74 53 42 2e 57 69 6e | 4c 65 66 74 20 3d 20 57 |rtSB.Win|Left = W|
|000013e0| 69 6e 57 69 64 74 68 20 | 2d 20 4c 6f 6f 6b 41 6e |inWidth |- LookAn|
|000013f0| 64 46 65 65 6c 2e 53 69 | 7a 65 5f 53 63 72 6f 6c |dFeel.Si|ze_Scrol|
|00001400| 6c 62 61 72 57 69 64 74 | 68 20 2d 20 48 42 6f 72 |lbarWidt|h - HBor|
|00001410| 64 65 72 3b 0d 0a 09 09 | 56 65 72 74 53 42 2e 57 |der;....|VertSB.W|
|00001420| 69 6e 54 6f 70 20 3d 20 | 48 42 6f 72 64 65 72 3b |inTop = |HBorder;|
|00001430| 0d 0a 09 09 56 65 72 74 | 53 42 2e 57 69 6e 57 69 |....Vert|SB.WinWi|
|00001440| 64 74 68 20 3d 20 4c 6f | 6f 6b 41 6e 64 46 65 65 |dth = Lo|okAndFee|
|00001450| 6c 2e 53 69 7a 65 5f 53 | 63 72 6f 6c 6c 62 61 72 |l.Size_S|crollbar|
|00001460| 57 69 64 74 68 3b 0d 0a | 09 09 56 65 72 74 53 42 |Width;..|..VertSB|
|00001470| 2e 57 69 6e 48 65 69 67 | 68 74 20 3d 20 57 69 6e |.WinHeig|ht = Win|
|00001480| 48 65 69 67 68 74 20 2d | 20 32 2a 56 42 6f 72 64 |Height -| 2*VBord|
|00001490| 65 72 3b 0d 0a 09 7d 0d | 0a 09 65 6c 73 65 0d 0a |er;...}.|..else..|
|000014a0| 09 7b 0d 0a 09 09 56 65 | 72 74 53 42 2e 48 69 64 |.{....Ve|rtSB.Hid|
|000014b0| 65 57 69 6e 64 6f 77 28 | 29 3b 0d 0a 09 7d 0d 0a |eWindow(|);...}..|
|000014c0| 0d 0a 09 4f 77 6e 65 72 | 2e 57 69 6e 64 6f 77 54 |...Owner|.WindowT|
|000014d0| 6f 47 6c 6f 62 61 6c 28 | 4c 69 73 74 58 2c 20 4c |oGlobal(|ListX, L|
|000014e0| 69 73 74 59 2c 20 57 69 | 6e 4c 65 66 74 2c 20 57 |istY, Wi|nLeft, W|
|000014f0| 69 6e 54 6f 70 29 3b 0d | 0a 7d 0d 0a 0d 0a 66 75 |inTop);.|.}....fu|
|00001500| 6e 63 74 69 6f 6e 20 50 | 61 69 6e 74 28 43 61 6e |nction P|aint(Can|
|00001510| 76 61 73 20 43 2c 20 66 | 6c 6f 61 74 20 58 2c 20 |vas C, f|loat X, |
|00001520| 66 6c 6f 61 74 20 59 29 | 0d 0a 7b 0d 0a 09 6c 6f |float Y)|..{...lo|
|00001530| 63 61 6c 20 69 6e 74 20 | 43 6f 75 6e 74 3b 0d 0a |cal int |Count;..|
|00001540| 09 6c 6f 63 61 6c 20 55 | 57 69 6e 64 6f 77 43 6f |.local U|WindowCo|
|00001550| 6d 62 6f 4c 69 73 74 49 | 74 65 6d 20 49 3b 0d 0a |mboListI|tem I;..|
|00001560| 0d 0a 09 44 72 61 77 4d | 65 6e 75 42 61 63 6b 67 |...DrawM|enuBackg|
|00001570| 72 6f 75 6e 64 28 43 29 | 3b 0d 0a 09 0d 0a 09 43 |round(C)|;......C|
|00001580| 6f 75 6e 74 20 3d 20 30 | 3b 0d 0a 0d 0a 09 66 6f |ount = 0|;.....fo|
|00001590| 72 28 20 49 20 3d 20 55 | 57 69 6e 64 6f 77 43 6f |r( I = U|WindowCo|
|000015a0| 6d 62 6f 4c 69 73 74 49 | 74 65 6d 28 49 74 65 6d |mboListI|tem(Item|
|000015b0| 73 2e 4e 65 78 74 29 3b | 49 20 21 3d 20 4e 6f 6e |s.Next);|I != Non|
|000015c0| 65 3b 20 49 20 3d 20 55 | 57 69 6e 64 6f 77 43 6f |e; I = U|WindowCo|
|000015d0| 6d 62 6f 4c 69 73 74 49 | 74 65 6d 28 49 2e 4e 65 |mboListI|tem(I.Ne|
|000015e0| 78 74 29 20 29 0d 0a 09 | 7b 0d 0a 09 09 69 66 28 |xt) )...|{....if(|
|000015f0| 56 65 72 74 53 42 2e 62 | 57 69 6e 64 6f 77 56 69 |VertSB.b|WindowVi|
|00001600| 73 69 62 6c 65 29 0d 0a | 09 09 7b 0d 0a 09 09 09 |sible)..|..{.....|
|00001610| 69 66 28 43 6f 75 6e 74 | 20 3e 3d 20 56 65 72 74 |if(Count| >= Vert|
|00001620| 53 42 2e 50 6f 73 29 0d | 0a 09 09 09 09 44 72 61 |SB.Pos).|.....Dra|
|00001630| 77 49 74 65 6d 28 43 2c | 20 49 2c 20 48 42 6f 72 |wItem(C,| I, HBor|
|00001640| 64 65 72 2c 20 56 42 6f | 72 64 65 72 20 2b 20 28 |der, VBo|rder + (|
|00001650| 49 74 65 6d 48 65 69 67 | 68 74 20 2a 20 28 43 6f |ItemHeig|ht * (Co|
|00001660| 75 6e 74 20 2d 20 56 65 | 72 74 53 42 2e 50 6f 73 |unt - Ve|rtSB.Pos|
|00001670| 29 29 2c 20 57 69 6e 57 | 69 64 74 68 20 2d 20 28 |)), WinW|idth - (|
|00001680| 32 20 2a 20 48 42 6f 72 | 64 65 72 29 20 2d 20 56 |2 * HBor|der) - V|
|00001690| 65 72 74 53 42 2e 57 69 | 6e 57 69 64 74 68 2c 20 |ertSB.Wi|nWidth, |
|000016a0| 49 74 65 6d 48 65 69 67 | 68 74 29 3b 0d 0a 09 09 |ItemHeig|ht);....|
|000016b0| 7d 0d 0a 09 09 65 6c 73 | 65 0d 0a 09 09 09 44 72 |}....els|e.....Dr|
|000016c0| 61 77 49 74 65 6d 28 43 | 2c 20 49 2c 20 48 42 6f |awItem(C|, I, HBo|
|000016d0| 72 64 65 72 2c 20 56 42 | 6f 72 64 65 72 20 2b 20 |rder, VB|order + |
|000016e0| 28 49 74 65 6d 48 65 69 | 67 68 74 20 2a 20 43 6f |(ItemHei|ght * Co|
|000016f0| 75 6e 74 29 2c 20 57 69 | 6e 57 69 64 74 68 20 2d |unt), Wi|nWidth -|
|00001700| 20 28 32 20 2a 20 48 42 | 6f 72 64 65 72 29 2c 20 | (2 * HB|order), |
|00001710| 49 74 65 6d 48 65 69 67 | 68 74 29 3b 0d 0a 09 09 |ItemHeig|ht);....|
|00001720| 43 6f 75 6e 74 2b 2b 3b | 0d 0a 09 7d 0d 0a 7d 0d |Count++;|...}..}.|
|00001730| 0a 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 44 72 61 77 |...funct|ion Draw|
|00001740| 4d 65 6e 75 42 61 63 6b | 67 72 6f 75 6e 64 28 43 |MenuBack|ground(C|
|00001750| 61 6e 76 61 73 20 43 29 | 0d 0a 7b 0d 0a 09 4c 6f |anvas C)|..{...Lo|
|00001760| 6f 6b 41 6e 64 46 65 65 | 6c 2e 43 6f 6d 62 6f 4c |okAndFee|l.ComboL|
|00001770| 69 73 74 5f 44 72 61 77 | 42 61 63 6b 67 72 6f 75 |ist_Draw|Backgrou|
|00001780| 6e 64 28 53 65 6c 66 2c | 20 43 29 3b 0d 0a 7d 0d |nd(Self,| C);..}.|
|00001790| 0a 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 44 72 61 77 |...funct|ion Draw|
|000017a0| 49 74 65 6d 28 43 61 6e | 76 61 73 20 43 2c 20 55 |Item(Can|vas C, U|
|000017b0| 57 69 6e 64 6f 77 4c 69 | 73 74 20 49 74 65 6d 2c |WindowLi|st Item,|
|000017c0| 20 66 6c 6f 61 74 20 58 | 2c 20 66 6c 6f 61 74 20 | float X|, float |
|000017d0| 59 2c 20 66 6c 6f 61 74 | 20 57 2c 20 66 6c 6f 61 |Y, float| W, floa|
|000017e0| 74 20 48 29 0d 0a 7b 0d | 0a 09 4c 6f 6f 6b 41 6e |t H)..{.|..LookAn|
|000017f0| 64 46 65 65 6c 2e 43 6f | 6d 62 6f 4c 69 73 74 5f |dFeel.Co|mboList_|
|00001800| 44 72 61 77 49 74 65 6d | 28 53 65 6c 66 2c 20 43 |DrawItem|(Self, C|
|00001810| 2c 20 58 2c 20 59 2c 20 | 57 2c 20 48 2c 20 55 57 |, X, Y, |W, H, UW|
|00001820| 69 6e 64 6f 77 43 6f 6d | 62 6f 4c 69 73 74 49 74 |indowCom|boListIt|
|00001830| 65 6d 28 49 74 65 6d 29 | 2e 56 61 6c 75 65 2c 20 |em(Item)|.Value, |
|00001840| 53 65 6c 65 63 74 65 64 | 20 3d 3d 20 49 74 65 6d |Selected| == Item|
|00001850| 29 3b 0d 0a 7d 0d 0a 0d | 0a 66 75 6e 63 74 69 6f |);..}...|.functio|
|00001860| 6e 20 45 78 65 63 75 74 | 65 49 74 65 6d 28 55 57 |n Execut|eItem(UW|
|00001870| 69 6e 64 6f 77 43 6f 6d | 62 6f 4c 69 73 74 49 74 |indowCom|boListIt|
|00001880| 65 6d 20 49 29 0d 0a 7b | 0d 0a 09 4f 77 6e 65 72 |em I)..{|...Owner|
|00001890| 2e 53 65 74 56 61 6c 75 | 65 28 49 2e 56 61 6c 75 |.SetValu|e(I.Valu|
|000018a0| 65 2c 20 49 2e 56 61 6c | 75 65 32 29 3b 0d 0a 09 |e, I.Val|ue2);...|
|000018b0| 43 6c 6f 73 65 55 70 28 | 29 3b 0d 0a 7d 0d 0a 0d |CloseUp(|);..}...|
|000018c0| 0a 66 75 6e 63 74 69 6f | 6e 20 43 6c 6f 73 65 55 |.functio|n CloseU|
|000018d0| 70 28 29 20 0d 0a 7b 0d | 0a 09 4f 77 6e 65 72 2e |p() ..{.|..Owner.|
|000018e0| 43 6c 6f 73 65 55 70 28 | 29 3b 0d 0a 7d 0d 0a 0d |CloseUp(|);..}...|
|000018f0| 0a 66 75 6e 63 74 69 6f | 6e 20 46 6f 63 75 73 4f |.functio|n FocusO|
|00001900| 74 68 65 72 57 69 6e 64 | 6f 77 28 55 57 69 6e 64 |therWind|ow(UWind|
|00001910| 6f 77 57 69 6e 64 6f 77 | 20 57 29 0d 0a 7b 0d 0a |owWindow| W)..{..|
|00001920| 09 53 75 70 65 72 2e 46 | 6f 63 75 73 4f 74 68 65 |.Super.F|ocusOthe|
|00001930| 72 57 69 6e 64 6f 77 28 | 57 29 3b 0d 0a 0d 0a 09 |rWindow(|W);.....|
|00001940| 69 66 28 62 57 69 6e 64 | 6f 77 56 69 73 69 62 6c |if(bWind|owVisibl|
|00001950| 65 20 26 26 20 57 2e 50 | 61 72 65 6e 74 57 69 6e |e && W.P|arentWin|
|00001960| 64 6f 77 2e 50 61 72 65 | 6e 74 57 69 6e 64 6f 77 |dow.Pare|ntWindow|
|00001970| 20 21 3d 20 53 65 6c 66 | 20 26 26 20 57 2e 50 61 | != Self| && W.Pa|
|00001980| 72 65 6e 74 57 69 6e 64 | 6f 77 20 21 3d 20 53 65 |rentWind|ow != Se|
|00001990| 6c 66 20 26 26 20 57 2e | 50 61 72 65 6e 74 57 69 |lf && W.|ParentWi|
|000019a0| 6e 64 6f 77 20 21 3d 20 | 4f 77 6e 65 72 29 0d 0a |ndow != |Owner)..|
|000019b0| 09 09 43 6c 6f 73 65 55 | 70 28 29 3b 0d 0a 7d 0d |..CloseU|p();..}.|
|000019c0| 0a 0d 0a 00             |                         |....    |        |
+--------+-------------------------+-------------------------+--------+--------+